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PROG : QL- SUBSTITUTION, SURFACE 


PROG : GROSSES LETTRES FACILES(C466) 


INFOS : Utilisation des routines ROM 
du 2468. 


INFOS : Un lecteur nous dit son opinion 


sur le UL. 


INFOS : La liste des BBS de la region 
de QUEBEC. 


INFOS : Une unite de disquette pour le 
TS52B68. 


PROG : Hero” ciue pour iii AS 


TR EE A A AAA SQ 11 ,0,.8L i | 


[SINCLAIR NERS] 


MODEM 2088....,.. 


$99526291219203555122959520222535827821531385990135123115 


Savez-vous que vous pouvez vous procurer un modea WESTRIDGE 
T8-2050 pour seulement 29,95$? C’est le nodem original pour le 
78-2048, Il est complet et prêt à utiliser, mais il nanque 
seulement le boitier. J'en ai commandé un par téléphone et l'ai 
reçu en aoins de deux semaines. Je peux vous dire aujourd'hui 
que c'est très intéressant de communiquer avec les babillards et 
aussi les amis, Si vous êtes interressé vous pouvez en 
coamander un chez: 

SUNSET ELECTRONICS 
2284 Taraval Street, 
San Francisco, 
Ca 94116 i 
Pour commander, vous pouvez aussi téléphoner à | 
415-855-6161, | 


Yvon Lavoie 
MEMOIRE STATIQUE POUR LE FAUX RP I En cU wn 


E, ARTHUR BROWN CO, offre - une cartouche de mémoire 
statique pour le 2068, Vous insérez la cartouche, vous écrivez 
des données dans celle-gi, vous éteignez le 2068, et les données | 
sont toujours présente dans la cartouche car elle contient une 
pile qui garde les informations a&me lorsque l'ordinateur est 
fermée, Pour plus d'informations écrire: | 


E.A. Brown Company, 3404 Pawnee Drive, Alexandria, MN 56308, USA 


UPGRADE MTERM, sesassssosneasusesosnsooenonsasnansoscsessososasono 


MTERM est le logiciel de communication qui vient avec le MODEM 
782050, LOADER V est une collection de 5 programmes qui comble 
les lacunes de MTERM. LOADER V vous permet d'ajouter 20 nuaéros 
au "directory" de MTERM, Augnente la vitesse pour la composition 
de nuséros et permet la reconposition du numéros lorsque celui-çi 
est engagé. Il ajoute le protocole XMODEM qui est trés utilisé 
lors de transfert de fichier par MODEM. 


KURT CASBY, 25 Battle Creek Court, St. Paul, MN 55119, USA i 


Une version de MTERM en &4 colonnes est disponible (en cartouche) 
2 chez ZEBRA SYSTEMS, 


LOGICIEL SPECTRUM DIRECTEMENT DE GRANDE BRETAGNE...,,,,,,,,,,,,,, 


Voici une adresse fiable pour commander vos SOFTS du SPECTRUM 
d'Angleterre et ce, aux aeilleurs prix: 

CUT PRICE SOFTHARE (Dept,&) 

Unit & , Stuart House 


Riverway , Harlow 
Essex CM20 2DW 
ENGLAND 


Voici la procédure à suivre, Envoyez une enveloppe adressée et 
non timbrée et ' 1,00 pour les frais postaux, 


Siaon Rioux, 
KIT AL : PRIX INCROYABLE,......., 


Le QL est maintenant disponible en kit au prix de $139 US, 
Pour infos: QUANTUM COMPUTING, POB 1280-C5, DOVER, NJ 07801, USA 
A+ COMPUTER RESPONSE, 68-B ISLAND ST., KEENE, 
NH 03431, USA 
( Si vous voulez voir une annonce d'un cosmercant enthousiaste 
au sujet du AL, regardez COMPUTER SHOPPER ,Décenbre 86,p.272 ) 


Pour ce dernier numéro de l'année 1986, SIN vous offre quelques 
pages de plus. Ceci a été possible grace à la collaboration de 
lecteurs, comme vous, qui ont décidé de communiquer leurs 
expériences à leur semblable. 


Simon Rioux, de Hull, devient un collaborateur fidèle à SIN avec 
ses programmes exploitant la commande SOUND du 2068, Dans ce 
numéro, il vous offre une "toune" de circonstance, Jean-Claude 
Touzin, de La Sarre, nous donne ses impressions sur son SINCLAIR 
AL tandis que Yvon Lavoie, de Québec, nous parle de son unité de 
disquette pour le 2048, 


Merci à tous pour vos articles et programmes, ils sont grandement 
appréciés. Vos commentaires le sont aussi, alors n'hésitez à ne 


contacter à aa nouvelle adresse indiquée à la dernière page de ce 
SIN, 


je souhaite à tous une année 1987 pleine d'octets dodus... 


Réal Gagnon. 


| AL : Mon opinion... 


Coane j'ai un OL depuis quelques sois, j'ai pensé vous 
faire parvenir nes premières iapressions, Mes commentaires ne 
font qu'effleurer le sujet car le OL est une machine très 
complexe (on apprend vite l'usage du bouton RESET sur le 
Bl...) 


Preaiérement, pour ceux qui seraient tentés de se 
procurer un OL sais qui hésitent, je dois dire que je ne suis 
pas déçu, Le AL est un ordinateur très rapide et très souple, 
Et il vient avec 4 logiciels qui permettent d'eaployer 
l'ordinateur dés qu'on en fait l'acquisition, Ces nênes 
logiciels ont été adaptés pour 1'IBM PC sous le non de 
XCHANGE et se vendent environ $800 US... Les 2 aicrodrives de 
100K sont égaleaent un atout quoiqu'en dise une certaine 
publicité. Cette publicité, d'ailleurs, je l'avoue, p? avait 
rendu néfiant à leur endroit. Je n'ai eu eu qu'une seule 
erreur de lecture à date (que j'ai pu récupérer) et je crois 
que je n'avait pas inséré la cartouche correctement. 


Mais si vous aisez programaer, alors là le SUPERBASIC 
est une merveille. Placez-le en mode auto et le OL insère 
AUTOnatiquenent un no au début de vos lignes de programme. 
Avec EDIT et les 4 touches fléchées vous pouvez corriger à 
loisir. RENUM renuaérote vos lignes (jusqu'à 32767,..). Vous 
avez des commandes spécialisées comae RAD et DEB qui 
peraettent de passer des radians aux degrés et vice-versa, ou 
DATE qui retourne le noabre de secondes depuis le ler janvier 
1941 Oh, jusqu'à la date courante (intéressant pour les 
amateurs d’astrononie), 


Le Superbasic possède égalenent d'autres 
caractéristiques étranges pour un prograsaeur habitué aux 
anciennes versions de BASIC, Par ex, on peut écrire: 

10 nombre=200 

20 alpha$=nombre 

Notez bien à la ligne 20, nombre n'est pas entre 
guillemets...Autre exemple, lors du déroulement d'un 
programe, si vous devez entrer une variable numérique, 
disons 0, aais que par erreur vous tapez 0,0 le üL s'en 
accoaaodera et en déduira que vous vous vouliez taper 0 sans 
afficher de message d'erreur, La caractéristique principale 
du BL senble être de nous siaplifier la tâche, 


Mais la marque de commerce du SUPERBASIC est sans 
contredit la structuration des programmes à l'aide des 
procédures, qui permettent d'appeler des routines sans 
“spécifier de nos de lignes, seulement leur noa. Avant de 
prendre contact avec le @L je ne m'étais pas tellement 
intéressé à ce que l'on appelle dans les revues 
d'informatiques la "programmation structurée", Cette 
possibilité de créer un programme par bloc, sans avoir à se 
préoccuper des variables sur lesquelles la routine devra 
effecter des opérations, ni du no de ligne où la procédure 
sera iaplantée libère grandement le programseur. Je n'ai pas 
encore réalisé d'applications complexes sur le GL, mais je me 
suis déjà rendu compte d'un autre avantage des procédures: 
étant donné que le nom des variables sur lesquelles 
travaillent les procédures n'a pas à être le nême ailleurs 
dans le progranane, il devient trés facile de se créer une 
banque de procédures qu'on peut employer d'un prograane à 
l'autre suivant les besoins. Encore une fois le @L nous 
sinplifie la vie. 


Il y aurait encore beaucoup à dire sur le sujet, mais 
j'aimerais maintenant vous parler de na première expérience 
avec une iapriaante 80 col. J'ai reçu il y a peu de temps aon 
imprimante QL avec interface série directement connectable au 
8L. Sans avoir à changer les codes ASCII etc., on peut faire 
sortir les lettre françaises avec accent et une multitude de 
syaboles. Cette imprimante a également un mode NLA (NDLR: 
NLG = Near Letter Quality) trés performant, en fait on dirait 
presqu'une —iaprisante à aarguerites, En mode NLA, les 
caractères italiques sont parmi les plus lisibles que j'ai 
vus sur une imprimante à matrices de points de ce prix ($400 
can), En passant, contraireaent à ce qui est rapporté dans 
SUM (avril 86), je n'éprouve aucune difficulté à charger ni 


le papier ordinaire ni le papier avec des bretelles 
perforées, 


Jean-Claude TOUZIN 
C.P.41 La Sarre, P.O, 
J92 2X4 


Voici 2 programaes pour le OL. Le premier sert à calculer une 
surface quelconque et le deuxiéae et fort utile si vous avez un 
coupole et que voulez l'orienter le aieux possible, Ces 2 
programmes sont un envoi de Jean-Claude Touzin, E 


DL A E e 
145,30) 


- 


Hated lez unites sont en 


ARE pieds, les resultats seront 
des en pieds, $ ce sont dez 
P Metros ils seront en metres. 


V3 Faites 1,9 0 CENTER) 0 (ENTER: 
[20,01 Lu NO ij. oen 
e E pe 


UNE 


1,41 ARE des Y 


51 0,0 est le premier point, 30,0 est le deuxiene et 
15,30 est le troisieme (sens contraire d'une montre). 

10 REMark surface 

20 REMark par JC TOUZIN 

39 : 

1900 CLS#h:CLS#1 : CLSH2 

1019 INPUT "Combien de sonsets y-a-t-il? "¡ver 

1020 sb=ver+1 

1039 DIM x(sb),y(sb) 

1949 DIM px(ver),pylver) 

1050 DIM nx(ver),ny(ver) 

1060 PRINT"Choisissez un sommet quelconque pour 

débuter et indiquez les coordonnées x,y de chaque 

somaet dans le sens contraire des aiguilles d'une 


nontre." 

1970 FOR i=1 TO ver 1210 PRINT "La surface mesure "iprd 

1980 INPUT "x, y "¡x(i),y(1) 1229 PRINT "Le périaétre mesure "¡pe 

1090 pxlid=x(i):py(i)=y(i) 1239 PRINT "Le rapport surface/périaètrez "¡rd 
1190 END FOR i 1240 graphique 

1110 y(ver+1)=y(1)3x (vers) zx (1). 1250 STOP 

1120 pi=0:p2=0 1260 DEFine PROCedure graphique 

1139 FOR ¿=1 TO ver 1270 naximua:ainisua 

1149 j=i+1 1289 regr_lineaire 

1200 pi=pl+x(1)8y(j) 1290 n=ver 

1169 p2=p2+x(j)8y(1) 1308 FOR i=1 TO n 

1170 END FOR i 1310 nxlid=(mpx8px(1))+0x+2:3ny(1)=(apy8py(1))+by+2 
1189 perisetre 1320 END FOR i 

1199 prdz, 5t (p1-p2) 1339 FOR i={ TO (n-1) 

1208 rapport 1340 LINER2, nx (2) ny(i). TO mx (i1) ny(i 1) 


1350 END FOR i 
1369 LINER2, nx (1), ny(1). TO mx (0) ny (n) 
1379 END DEFine graphique 
1389 DEFine PROCedure perimetre 
1399 pe=0 
6 1400 FOR i=1 TO ver-1 


1419 pespe+SORT((x(1)-x (1+1))%2+(y(1)-y(1+1))2) 
1420 END FOR i 

1439 pespe+S0RT((x(1)-x(ver))*2+1y(1) -y (ver) ) ^2) 
1449 END DEFine perinetre 

1450 DEFine PROCedure rapport 

1460 rd=prd/pe 


1470 END DEFine rapport 1620 DEFine PROCedure regr lineaire 

1480 DEFine PROCedure maximua 1639 sx=ax+ainxisy=ay+ainy:sxg=75:5yg=85 
1499 ax=px(1)smy=py(1) 1640 sx2zax^2eninx^2:sy2zny^2*niny^2 
1508 FOR i=2 TO ver 1650 sxxyzaxisxgrsxyysnylsyg 

1510 IF px(ilomx THEN ex=px li) 1660 apxs(sxxy-(sx1sxg/2)] / [sx2- (sx^2/21) 
1520 IF py(i)»ay THEN ayspyli) Abxz(5xq- (apx 1x2] /2 

1530 END FOR i 1679 apyz (sxyy- (syt15yg/2)) / (y2- (sy^2/2)) 
1549 END DEFine aaximum tbys (syg- (apytsy))/2.- 

1550 DEFine PROCedure siniaua 1689 END DEFine regr lineaire 


1560 ainxspx (1) rainyspy(1) 

1579 FOR i22 TO ver 

1580 IF pxli}Cainx THEN ninx= px(í) 
1599 IF py(i)<miny THEN ainyspy(i) 
1508 END FOR i 

1610 END DEFine ainiaum 


DEUXIEME PROGRAMME: 

10 REMark satellite 

20 REMark JC TOUZIN 

30 : 

1000 WINDOW#9,512, 50, 0, 206: INK40, 4: PAPERE, Y 
19104INDOW#1,256, 202, 257 , 01 INK#1,7:PAPER#1, 2: BORDERE1, 1,255 
1020 HINDON#2,256, 202,9, 0: INK#2, 2:PAPER#2, 7: BORDERE2, 1, 255 
1030 CLS +0:CLS #1:CLS #2 

1049 instruction: datas: calcul 

1958 PRINT \\'Ez= encore F= fin" 

1960 LET ink$zINKEYS (-1) 

1970 IF ink$z"e' OR ink$="E" THEN RUN 

1980 CLS#9:CLS#1:CLS#2:LIST 1099: STOP 

1999 REMark programme en sénoire:satellite 

1100 DEFine PROCedure calcul 

1119 long_sat=RAD(long_sat):lat=RAD(lat):long=RAD (long) 
1120 diff longzlong sat-long 

1139 t=1,821379E9-5,373748E83 (COS (1at) $COS (di £4. long)) 
1149 hauteur 

1150 azinut 

1160 PRINT V Hauteur z^; elevation; "|" 

1170 PRINT V Aziauthz"; az i auth; "[" 

1189 IF elevation (0 THEN PRINT "Ce satellite est plus bas que 


l'horizon." M 
L> 


1199 END DEFine calcul 

1208 DEFine PROCedure hauteur 

1219 t1:RADIt-1,740391E9) 

1220 t2=RAD(12734450RT(t)) 

1230 t3=ti/t2 

1249 elevationzACOS (t3) 

1250 elevation=DEblelevation)-9 

1269 END DEFine hauteur 

1270 DEFine PROCedure azimut 

1289 azisuthzATAN(TAN(diff long)/SIN(lat)) 

1290 aziauth=DEG (aziguth) +188 

1309 END DEFine aziaut 

1319 DEFine PROCedure instruction 

1320 CSIZE 3,8:PRINT\"SATELLITE" 

1330 CSIZE 0,0:PRINTA!"Ce programae indique consent orienter une 
antenne pour capter un satellite de votre choix.L'azimuth donne 
le nombre de degrés en partant du nord vers l'est.La hauteur est 
l'élévation au-dessus de l'horizon en degrés," 

1340 END DEFine instruction 

1359 DEFine PROCedure datas 

1369 PRINT#2 ,V* Choisissez le satellite que vous voulez capter 
(numéro 1 à 18);" 

1370 DIM sat$(18,13) 

1389 DATA "Aurora", "Satcos FIR", "Galaxy 1","Satcon F3" 

1390 DATA "Comstar D4","Westar 5","Spacenet 1","Anik B" 

1498 DATA "Anik D1”,"Nestar 4","Telstar 301","Nestar 3" 

1410 DATA 'Constar D3",'Satcos F4","Westar 2","Constar 

01/02" ,*Galaxy 2", "Satcon F2R”. 

1420 RESTORE : FOR i=1 TO 18:READ sat$(i):NEXT i 

1430 FOR iz1 T0 9 

1440 ATRZ,1+3,0:PRINTHZ ,ij" -"ssat$(i): ATE2, 143, 20: PRINTE2 
1*8" -isat (i 9) 

1450 END FOR i 

1469 INPUT 42, V Votre nuaéro? ";no 


1470 SELect ON no 1569 ON noz?:long sat=194,5 
1489 ON no=i:long sat=i4s 1579 ON no=10:long_sat=99 
1499 ON noz2:1ong sat=139 1589 ON nozii:long sat=96 
1594 ON no=3:long_sat=134 1599 — QN no=12:10ng_sat=91 
1519 ON nos4:long sat=131 1609 ON no=i3:long sat=87 
1529 ON no=5:long_sat=127 1619 ON no=14:long_sat=83 
1539 ON no=b:long _sat=123 1629 ON no=15:long_sat=79 
1549 ON no=7:long_sat=120 1639 ON no=16:long_sat=76 
1559 ON no-B:long satz10? 1649 ON no=i7:long satz74 


1659 ON no=1B:long sat=72 
1669 ON no=REMAINDER :RUN 


1670 END SELect 

1689 INPUT 42,1" Votre latitude (nord=positive) en deg. et déc.: 
*ilat 

1690 INPUT #2," Votre longitude (ouestzpositive) en deg. et 
déc.: "¡long 

1700 END DEFine 

1710 REMark SELect ON remplace une ligne de ce genre sur le 
781009 ou le 2068 :LET 

long satz(1431(noz11) (1391 (no22) ) * (1341 (no0=3))+(1313(no0=4))+(12- 
7t (nos51)* (1231 (n020)) * (1201 (1027) * (1091 (no=8) ) 4 (104, 5% (n0=9))+- 
(991 (n0219)) * (961 (n0211)) * (911 (n0212) ) * (87$ (n0213) ) 4 (831 (no=14))- 
*(791(n02151)*(76£(n0216)) * (743 (n0217))* (721 (n0218)) ou une série 
de IF... THEN 


es u 


(source SINC-LINK, newsletter du T/S TORONTO USER GROUP, 
téléchargé de COMPUSERVE DATA LIBRARY AUGUST 1984) 


NOTE: Toutes les adresses sont HEXADECIMALS. 


CALL 436 --- BEEP 
Pour faire un BEEP X,Y il faut que X,Y se retrouve 
sur le pile arithnétique, 
exemple: pour BEEP 1,30 -> LD A,1 
CALL SOEó6jplace le contenu 


LD 4,30 ¡de A sur la pile 


CALL 30E6 
CALL 435 ¡BEEP 
CALL BAA --- CLS 
CALL BA? --- CLS DU BAS DE L'ECRAN 
CALL 939 --- SCROLL L'ECRAN D'UNE LIGNE 
CALL 93B --- SCROLL À PARTIR DE "B" LIGNE, 


On charge le registre B avec le nunéro de la ligne 
du haut et on 'CALL 938". Les lignes au-dessus de 
la ligne B seront laissées intactes. 


CALL 97F --- CLS À PARTIR DE "B* LIGNE, 
Siailaire à ci-dessus sauf qu'on CLS au lieu de 
SCROLL. 

CALL 802 --- COPY D'ECRAN SUR ZX PRINTER 

CALL DID --- NEW 

CALL 1788 --- PRINT NOMBRE 
Inprise le nombre contenu dans BC. 

CALL 1FF2 --- PAUSE 


On charge BC avec le "temps" de la PAUSE, y 
+ 


18 


CALL 26EE --- DRAW X,Y,Z 
Les paranètres doivent présent sur la pile 
arithmétique. Nous devons sauvegarder le registre 
PL’ car il est corrompu par la routine. 
exeaple : EXX 
PUSH HL 
EXX 


s .FOutine DRAW 


RET 


CALL 2813 --- DRAW X,Y 
Ün aet ABS X dans C, ABS Y dans B, SEN X dans E et 
SEN Y dans D. On doit sauvegarder H'L' (voir plus 


haut). 
CALL 3044 --- TEST ALPHANUMERIQUE 
Retourne CARRY si À contient une lettre ou un 
chiffre, 
CALL 3048 --- TEST ALPHA 
Retourne CARRY si À contient un lettre, 
CALL 3009 --- TEST NUMERIQUE 
Retourne NO CARRY si CODE "0" <= À >= CODE "9" 
CALL 30E --- CONVERSION DE À EN VIRGULE FLOTTANTE 


Conversion du contenu de À en virgule flottante et 
le place sur la pile arithaétique. - 

CALL 30E8 --- CONVERSION DE BC EN VIRGULE FLOTTANTE 
Conversion du contenu de BC en virgule flottante et 
le place sur la pile arithaétique, 


CALL 3160 --- TRANSFERT LE DESSUS DE LA PILE ARITH. DANS BC 
CALL 3141 --- PRINT UN NOMBRE EN VIRGULE FLOTTANTE 

Imprime le dessus de la pile arithaétique. 
CALL 1541 --- PRINT UNE LIGNE DE PROGRAMME 


Imprime une ligne de programme donc l'adresse est 
contenu dans HL. 

CALL 1606 --- ADRESSE D'UNE LIGNE BASIC 
On charge le nunéro de ligne dans HL. On appelle la 
routine et au retour HL contient l'adresse de cette 
ligne. 

CALL 2503 --- CALCUL DE POSITION DE L'ECRAN 
On charge C avec la coordonnée X et B avec la 
coordonnée Y, Au retour HL contient l'adresse 
correspondante dans la mémoire écran et À 
contient la position correspondante dans l'octet, 


CALL 263E --- PLOT X,Y 

On charge C avec X et B avec Y, 
CALL 284] --- DESSUS DE LA PILE ARITH, DANS A 
CALL 2585 --- CIRCLE Y,Y,1 


On doit placer sur la pile arithnétique les trois 
paranètres, On doit sauvegarder le registre H'L' qui 
sera corrompu par la routine. 
exemple: EXX jsauvegarde H'L' 

PUSH HL 

EXX 

LD A,coordx 

CALL 30Eé 

LD A,coordy 

CALL 30E4 


LD A,rayon 


CALL 30E6 
CALL 2686 ¡CIRCLE x,y,rayon 
EXX jretrouve H”L* 
POP HL 
EXX 

CALL 21DB --- PRINT CHAINE DE CARACTERE 


Inprise une chaine de caractère de longueur BC, 
partant à l'adresse DE, 


des BBa de la region de QUEBEC | 


(Cette liste est "downloadee" du BBS CAR qui est le BBS du Club Atari Quebec) 


> 647-2616 
TROC 64 


428-2222. 


BBS du 200 
872-4298, 


CFLS 
833-2157, — (18h a 9h +FdS 24/24) 


Babillard Rive-Sud (BRS) 
835-3294, — (18h a 23h +FdS 24/24) 


BBS ST-DAVID 
833-4117, — (21h a 12h) 


FORUM  -ancien TFS 


557-4887, L 11 


lc 


COCO-BABILLARD -club d'informatique du CEGEP de LIMOILOU 
647-6613, — (Lundi-Jeudi 17h a 8h A.M, Vendredi 17h a Lundi Bh A.M) 


MICRO-BABILLARD QUEBEC 
687-4869, — (24h.) 


DATAPAC -Service offert par Telecom Canada, 
547-4690, (24h,) Code 9210 0085,F 


TELCOM-64 
927-2007. (24h.) 


Universite du Quebec -Acces a des services divers Infopug, Platon... 
657-2708, (24h) Taper AIDE et/ou LISTE 


BBS du Club Macintosh -Ancien Tele-Foyer 
558-5424, 


TELESTAQ 
845-1019. — (24h.) 


LAB 
548-9601. — (24h) 


P.C. BEAUPORT 
833-7136, — (24h.) 


BBS Micro Info -pour ATARI 
626-5616, 


JE SIGNALE QUE LES TARIFS DE DATAPAC 
PASSENT DE $3{US) À $12(U5)/HEURE, 
AVIS AUX INTERESSES! 
LES MANIAQUES DE COMPUSERVE OÙ DELPHI 
ATTENTION À VOTRE PORTEFEUILLE! 
(suite page 24,,,) 


Sinclair 


ARACTERE DOUBLE HAUTEUR p db 


Voici une petite routine qui est bien utile pour le 2058, Cette 
routine sert à écrire avec des caractères double hauteur, Elle se 
situe à partir de la ligne 1909. Avant d'appeler celle-çi nous 
devons spécifier les variables suivantes: 


ligne --) nunéro de ]a ligne 
colonne  --) numéro de la colonne 
a$ --) le texte 


Cette routine est tirée du ZX COMPUTING du mois Octobre 1986, 


19 REM DEMO DU PROGRAMME DOUBLE HAUTEUR 
20 : 
39 LET LIGNE=ÿ: LET COLONNE=0 
40 LET A$="Ceci est un test" 
30 6OSUB 1000 
50 LET LIGNE=LIGNE+2 
79 LET COLONNE=0 
80 LET A$="de la routine qui imprime" 
90 B0SUB 1999 
190 LET LIGNE=LIGNE+2 
110 LET COLONNE=0 
120 LET A$z'EN DOUBLE HAUTEUR" 
139 GOSUB 1000 
140 STOP 
999 | 
1008 FOR A=1 TO LEN AS:LET C=15616 
* (BE (CODE A$(A)-32): FOR B=0 
TO 7: LET D=(USR "a'*(b12)): 
POKE d,PEEK (c+b):POKE (del), 
PEEK (C+B): NEXT B: PRINT AT 
LIGNE,COLONNE; "A" ;AT LIGNE+1, 
COLONNE; "B*:LET COLONNE=COLONNE 
+1: NEXT As RETURN 


NOTE : --) Caractère "A" en node GRAPHIQUE 


À 
B --> Caractère "B" en mode GRAPHIQUE 


13 


14 


L QL-SUBSTTTUTTO | 


DESCRIPTION 


Voici un prograsae qui a une fonction très utile qui peut vous 
Sauvez plusieurs minutes de travail acharné, Il prend un fichier 
quelconque (BASIC, texte...) et recherche un item que nous lui 
spécifions et le remplace par un autre, Voici un exemple, 
Supposons que vous venez d'acquérir un lecteur de disquette et 
que vous voulez changer tous les MDVs pour des FLPs alors le 
programme que voici le fera en un rien de temps... 


MARCHE & SUIVRE 


Le programme vous demande en premier lieu le non du fichier à 
aoditier, 
exemple -> Le noa du fichier à aodifier : advi test bas 


Puis vous donnez le non du nouveau fichier modifié. 
exempel -> Le nouveau fichier iflpi_test2 bas 


Ensuite vous donnez l'ites à changer et avec quoi on le remplace, 
exemple -> L'iten à renplacer + ndy 
et on le remplace par : flp 


Les 2 WINDOWS du centre vous montre le fichier original et le 
nouveau fichier au cours du traitement. Un autre petit WINDOW 
nous donne le nombre de lignes traitées et combien de 
aodifications ont été effectuées, 


IMPORTANT: Si le prograane est interrompu à cause d'un message 
d'erreur, il est important de taper CLEAN afin de 
fermer les fichiers. 


PROGRAMME GL: 


100 REMark GL-SUBSTITUTION gag-0 octobre 8b 
119 : 

128 : 

280 MODE 4 

299 WINDOW 512,256,0,0:PAPER O:CLS 

399 WINDONRO, 400, 44,50, 9: BORDERKO, 1,7 

310 PAPERRO, 0: INK#8,7:CLS#Q 


320 WINDOWEI, 512,100, 8, 4S: BORDERH1,1,7 

330 PAPEREL, 9: INK#1,7:CLS#1 

349 WINDONE2, 512, 100,0, 146: BORDER#2, 1,7 

350 PAPERY2,0:INK#2,4:CLS42 

369 : 

370 INPUTRO, "le noa de programae (ex, advi progl) :";prog$ 
3809 INPUTRO, "le nouveau programme (ex. advi prog?) :"iprogi$ 
399 INPUTHO, "L'itea ou le aot à changer 3"jitea$ 
400 INPUTEO, "et on remplace le not ou litem par — :"jchange$ 
40: 

420 : 

439 WINDONRO, 133,24, 370, 15: PAPERKO, SB: BORDERHO, 1, 7:CLSHO 
440 OPEN $6,prog$ 

450 OPEN_NEW#7,progi$ 

460 : 

470 : 

480 IF items INSTR change$:PRINTHO, * SUBSTITUTION” V ILLEGALE 
LIEU PAUSE: cl ean: RUN 

490 ligne=ismodification=0 

500 PRINT#9,’#ligne courante: V #aodifications 1” 

910 : | 

929 : 

334 REPeat loop 

549 IF EOF 5) :EXIT loop 

559 ATED, O, Lbs PRINTED, ligne 

360 ATO, 1, 16: PRINTEO, modification 

570 INPUTHE, ligne$ 

980 PRINTH, lignes 

390 verification ligne 

500 PRINT#2, Ligne$ 

619 PRINT#7, lignes 

620 lignezligne*i 

539 END REPeat loop 

540 clean 

659 WINDOWED, 200, 43,100,120: BORDER+O, 1,7: CLSHO 

669 PRINTHB,TO 5,' SUBSTITUTION TERMINEE,” 

679 PRINT#Ø, TO 3,'APPUYER SUR UNE TOUCHE POUR ' 

589 PRINT$O,TO 11,' CONTINUER' 

699 PRINTO, TO 5,'0U <8) POUR TERMINER. 

709 REPeat loopri$=INKEYS: IF 1$O "EXIT loop 

719 IF i$szz'q' 

729  PRINTéQ,'Retour au SUPERBASIC.':STOP 

730 ELSE 

749 RUN 

759 END IF 


760 : L 
» 
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774 : 

780 DEFine PROCedure verification ligne 
790 positionzitens INSTR lignes 

890 IF position 

810 aodification=nodificationt! 

820 IF position+LEN(iten$) >LEN(lignes) 


821 ligne$=ligne$(1 TO position-i)kchange$:RETurn 
840 ELSE 
859 ligne$=ligne$(1 TO 


position-1)kchanges$klignes (position+LEN(item$)TO LEN (ligne$)) 
960 END IF 
878 ELSE 
8860  RETurn 
899 END IF 
960 verification ligne 
919 END DEFine 
920 : 
930 : 
949 DEFine PROCedure clean:CLOSE#b:CLOSE#7:END DEFine 


"TERI de DISQU | 


Tout le monde sait qu'un des gros problèmes du 2X-81 et du 
18-1000 était de sauver et de charger les programmes. On sait 
aussi que le 15-2068 est une nette amélioration pour la rapidité 
et la fiabilité aais les progrannes sont généralement beaucoup 
plus longs. 


Après environ 4 ans d'utilisation de mon bon vieux 
magnétophone, je croyais qu'il était temps de passer à autre 
chose de mieux. Depuis 1 an et demi à 2 ans, plusieurs 
interfaces pour le TS-2068 existent, Après avoir pris 
connaissance de plusieurs annonces dans des magazines, j'ai 
communiqué avec 4 ou 3 compagnies, J'ai alors reçu d'excellentes 
documentations et j'ai eu à faire un choix. C'était très 
difficile de choisir parce qu'il était pratiquement impossible 
de trouver quelque chose de complet à moins de 300,00$. Je 
n'était pas intéressé par les micro drives qui étaient pour aoi 
un genre de système à cassette aodifié, Pour le prix, c'était 
celui de Larken en Ontario qui était le moins cher. D'autres 
étaient beaucoup trop cher ou avaient des faiblesses qui les 
rendaient moins intéressants. Mon choix s'est arreté sur celui 
de John Oliger. Les principales raisons qui ont justifiées ce 
choix étaient les suivantes: 


l- 11 contient un EPROM de 8k pour le Dos ainsi qu'un 8k de 
aéaoire statique. C'est donc dire que la aéaoire standard de 
l'ordinateur n'est jamais réduite ou touchée par l'interface, 


2- 11 fonctionne en TS2068 et en SPECTRUM comme pour la 
cassette, 


3- Il peut accepter des unités de disquettes de 3", 3 et demi 
ou 5" et quart, 


4- 11 peut accepter 4 unités de disquettes en nêse temps et 
chacunes peut avoir des spécifications différentes (on peut 
utiliser des unités de disquettes de 3" avec d'autres de 5" et 
quart), 


3- On peut l'acheter non assesblé afin de payer aoins cher. 
C'est ce que j'ai fait et il est très facile à assembler. 


b- Il contient un interrupteur qui permet, lorsqu'un programe 
est en aésoire, de le sauver sur disquette en appuyant 
seuleaent une touche. C’est très facile et on peut sauver tous 
les programmes, aêne les aieux protégés. 


7- Il est extréaenent rapide et fiable, Le temps pour sauver 
ou charger un prograame est de 4 secondes, 


8- Il est extrénenent facile d'utilisation. (n se sert des 
sots clés du clavier coame : SAVE, LOAD, FORMAT, MOVE, VERIFY 
COPY et CAT. Je pourrais continuer à nomaer beaucoup d'autres 
qualités mais cet interface a quand a&me des défauts, Les 
principaux sont les suivants: 


l- Lorsqu'on charge ou sauve un programme, le travail se fait 
sur la aénoire compléte. C'est 50k à chaque fois. Il est alors 
iapossihle de se servir de l'instruction MERGE, 


2- On doit créer nous-aéne le directory mais il y a dans la 
docuaentation un programme qui nous pernet de le créer très 
tacilement. 


3- Sur un disque [BM compatible de 40 tracks DS/DD, on peut 
sauver B programmes quelqu'en soit la grosseur, Celui que 
j'utilise présenteaent en a 80 DS/DD et je peut sauver 16 
programmes. C'est quand aéne très bien, J'ai commandé cette 
unité de disquette chez B.6. Micro aux Etats-Unis et l'ai payé 
39,95$ US. Ca fonctionne très bien. 7 
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Apres avoir utilisé ce système pendant 4 à 5 mois, je peux 
dire que c'est une petite merveille, I1 est très fiable, très 
facile d'utilisation et très rapide. Si vous avez déjà reçu une 
documentation de John Oliger, vous pouvez avoir confiance parce 
que tout est vrai. 


Vous êtes probablement intéressé à savoir coabien peut couter un 
système conne ca! Voici: 


1- L'interface: 220.00$ canadiens non asseablé incluant le 
cable qui vaut environ 20,00$ (John Oliger s'organise pour qu'on 
ne paie pas de douane). 


2- Un power supply de Pro Technique à 20.00$, 


3- Une unité de disquette de 50.00$ à 150.00$ dépendant ou 
vous l’achetez, 


DERNIERE HEURE: Je viens de recevoir ce soir une lettre de John 
Oliger qui annonce la disponibilité d'un nouveau DOS. Ce dernier 
crée lui a&ae son directory, il peraet de sauver seulement une 
partie de la mémoire, il donne un aoa à là disquette au nonent 
du FORMAT, Il continue à supporter les consandes de l'ancien DOS 
ainsi que les disquettes écrites par cet ancien DOS, 


pec Yuon Lavo tE 


MICRO- AUSTU 


Siaon Rioux vous propose d'autres programmes de Micro-Musique 
pour votre 2068. Ses programmes ont le nérite d'exploiter 
efficacement la aystérieuse commande SOUND qui exploite le "chips 
de son" qui réside au coeur de votre 2068 au lieu du ridicule 
BEEP des programmes "spectrumesque". Il est vrai que le nouveau 
SPECTRUM 128K +2 possède maintenant le ngne circuit, alors si ce 
sacré Alain Sucre peut se décider nous l'ofírir à nous pauvres 
Nord-Anéricains qui sommes surmergés par l'infgme COMME-ON-DORT 
bhas 


> cu E sl 
x Oo ^ 
[DODU EA M bb gU 
mt 
DL Uri ed Po 
m SU UE f ut ovs 
pc Fe cO E ATTE 03 -Ügpnni 

«eg Un dud cubo irm 4 rati nur. ia 
m : PU Pu. o i 
eur. EIL rd. nup. nang sun 
E "d rmi 


"T 


P 


e an 


4n [D T [T ni Fur 

pe a ne 

P fe cu 

^ rl Cu CE Ur cC Uo ee xr n 

1 e E 

SO CC C CE 
VL Cad 


EET 


"M 
EE c CE e CE CE. 
t- d n ES |- 
LL «+ d GI CE 


Lu CE MEL ICE 


DE 


E DU EG 
If 3 P» ua 


en 


ng 
wi 


Wim 


riu 


al. 


FE EL alf] EL. gae CL ga TIA 


V LE guy sime! Ta Hr ra uoa a ra A 
ie r m 


nn 


nns 


pe mp gp ccm 


OA 


Ll 


zl 


nj WM. MM 


Li 
[TT 


esce 
EE e 


n (cu 

"m 
LEA] 
Pere EE 


vA DNO 
H EL [Li 


EL 
ul 
It 


mieu -- 


del 


"n "ng cà 


mu 


hiec nnd od ec 
Er E IE 4 CL 
i 


Sa 
| 


Vr 
! 
ce 


DO 
uu 
i l i| JE c LEE 


ZH FACE LE 


a raln 


TOT 
44 np npe ey eu ni 


Wa uua 
np np en 


Qe» 
LM ETS 


E cp 
DJ 3M EE 


AE IL. CE CL 


3 ia eu e P E z 
Fr i3 et 1] " DES 
pem eaim mai 


EI 
Ww un 
rar v 


el 


NOTES SUR "2068 + UNITE de DISQUETTE" (p.16) 


ec 


Dans cet article, M. Yvon Lavoie nous parle de l'achat de son 
controlleur de disquette pour le 2068. Voici quelques détails 
supplémentaires, qui seront intéressé le lecteur, 


Preniérenent voici l'adresse de John Oliger : 


The John Oliger Co. 
11501 Whidbay Dr. 
Cumberland, IN 45229 USA 


Si vous voulez un catalogue, écrivez-lui et inclure $1 pour les 
frais de poste. Oliger propose également un programmeur d'EPROM 
(2754/27128), un interface parallèle un port Joystick compatible 
KEMPSTON et bien d’autres... Tout ça est offert soit tout monté, 
en pièce détachées ( donc soudure requise ) ou bien seulement 
sous la forme de circuit imprimé., Oliger offre un service de 
prenière classe tant par le délai de livraison que par la qualité 
de la documentation fournie avec ses interfaces, 


Pour nos lecteurs de l'extérieur de Québec, mentionnons que 
Pro-Technique est un aagasin de pièces électroniques de la 
région, Leur adresse est : 


PRO TECHNIQUE 383 la Canadière Québec 
Tél.: 529-5774 


En ce qui concerne B.G. MICRO on peut les rejoindre à l'adresse 
suivante: 

B.6. MICRO 

P.0, BOX 280298 

DALLAS TEXAS 75228 USA 

Tél.: (241) 271-3546 


Regardez dans COMPUTER SHOPPER pour plus d'inforaations sur leurs 
prix. 


SIN parait au deux mois et un abonnement 
E 


comprend 6 numeros. Si vous desirez une 
liste des sommaires des anciens numeros, 
envoyez 1$ a l'adresse cues 

Si vous êtes abonné a SIN et que vous 
possédez un ÜL,envouez-moi un microdrive 
formatté plus $1 et recevez par le retour 
du courrier un programme écrit sous 
ARCHIVE pour classer vos sommaires de SIN! 
Pour toutes correspondances écrire à: 


Real Gagnon 
4874 Henri Julien 


Montreal P.Q. 
HeT 2E1 


Abonnement UB nos2........ esses ,. $15.80 
Liste des SOM Fes $ 1.88 
féètens Numéros er. losses $c.ü08 

(tous disponibles? + .5Ü pour poste 
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(suite de la page 12) C 665...) 


BBS signifie Bulletin Board Service ou BaBillardS si on veut. 
Même si ils sont souvent gratuits et il faut néanmoins s'inscrire 
officiellement au SYSOP, qui se trouve à être le SYStem OPerator, 
Pour ce faire, on lui laisse habituellement un message personel 
lui indiquant votre noa, le noa de votre ordinateur ainsi que 
votre no, de téléphone. Pour des raisons assez aystérieuses les 
gens sont toujours portés à ne pas donner leur vrai nom ou no, de 
téléphone, ce qui est vraiment dommage car la principale victime 
se trouve à être cette afae personne qui se verra par la suite 
refuser les services les plus intéressants du BBS, 


Cosme la plupart des BBS sont opérés de façon bénévole, il n'est 
étonnant qu'ils disparaissent aussi vite qu'ils apparaissent. Ces 
disparitions sont souvent le résultat du sanque de participation 
des usagers, En effet pour qu'un BBS soit intéressant il faut non 
seulement appeler aais égalenent s'en servir soit pour partir des 
discussions, pour poser des questions ou donner des réponses. 


Le aonde de l'informatique étant ce qu'il est, les ordinateurs 
SINCLAIR sont loin de former la majorité des nembres actifs des 
BaBillardS. Cette situation pourrait changer avec la baisse de 
prix du MODEM T52050 (voir SINCLAIR NEWS), Qui sait peut-être 
qu'un jour nous verrons un BBS québecois avec une section 
spéciale pour les usagers SINCLAIR,.. 


Sinclair 


Rédacteur: Réal Gagnon, 4870 Henri Julien Montréal P.Q, H2T 2El 
Collaboration: Yvon Lavoie,Jean-Claude Touzin,Siaon Rioux. 
Ce bulletin est conçu avec l'aide du traitement de texte QUILL 
(PSION) et de TASPRINT (TASMAN SOFTWARE), L'impression se fait 
sur 
une imprimante STAR NX-10, 


